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ASCII TO FRIDEN (EIA) 


DECUS Program Library Write-up DECUS NO. 8-360 


DESCRIPTION 

This program converts from ASCII to Friden (EIA) using a specific restricted character 
list which is available in the assembly listing. Since there is a restricted character list 
there are provisions made for operating with or without illegal character halts. In either 
case conversion and output continues with illegal character ignored. Also provided is the 
capability of using high or low speed paper tape equipment and intermixing for input and 
output. 

MINIMUM EQUIPMENT 
4K PDP-8 with ASR33 TTY. 

OPERATING PROCEDURES 

1. Load program using Binary Loader. 

2. Place 0200 in switch register and depress LOAD ADDRESS. 

3. Set Bits,#, 10 and 11 of the SR for desired options as listed below. 

4. Place ASCII paper tape to be converted in appropriate reader with blank leader over the 
reader head and turn reader on (if necessary). 

5. Turn appropriate punch on. 

6. Depress START. 

7. Conversions will take place and when complete, computer will halt with 7777 in 
accumulator. 

8. If another tape is to be converted, go to step 3 and depress CONTINUE in step 6 instead 
of START. 

OPTION BITS 

Bit# =0 ; Computer will ignore all illegal ASCII characters. The computer will only 

halt at end of conversion. 

Bit# — 1 ; Computer will halt with the illegal ASCII code in the accumulator. To go on 

depress the CONTINUE key. The illegal character will be ignored and 
conversion will proceed. 








Bit 10 = 0 
Bit 10= 1 
Bit 11 = 0 
Bit 11 = 1 


; Input will be taken from low speed reader (ASR33). 

; Input will be taken from High Speed Photoelectric Reader. 
; Output will be to the low speed punch (ASR33). 

; Output will be to the high speed punch. 


LISTING 


A listing is attached. 
MISCELLANEOUS 


TAB1 is the table which contains the negative 8 bit codes for the legal ASCII characters. 
It is terminated with a zero word. 


TAB2 is the table which contains the corresponding Friden characters. 


In order to expand the amount of legal conversion characters it would be necessary to modi 
both TAB1 and TAB2, adding the appropriate negative ASCII code to the bottom of TAB1 
and the corresponding Friden code to the bottom of TAB2 in proper order. 


fy 



2 




0020 

0021 

0022 

0023 

0024 

0025 

0026 

0027 

0030 

0031 

0032 

0033 

0034 

0035 

0036 

0037 

0040 

0041 

0042 

0043 

0044 

0045 

0046 

0047 

0050 

0051 

0052 

0053 

0054 

0055 

0056 

0057 

0060 

0061 

0062 

0063 


/ PROGRAM TO CONVERT ASCII TO FRIDEN El A CODE 
/VIA HIGH OR LOW SPEED PAPER TAPE EQUIPMENT. 

/ CODES TO BE CONVERTED ARE LIMITED TO THOSE 
/ THAT ARE UNIQUE IN El A. 

/ 

/ ERROR CONDITION- HALTS WITH ILLEGAL ASCII CODE 

/ IN AC. 

/ TO GO ON* DEPRESS CONTINUE KEY* 

/ ILLEGAL CHAR. WILL BE IGNORED. 

/ 

/ FOR OPERATION WITH ERROR HALTS* 

/ SWITCH REGISTER BIT 0-1 


/ 

/ FOR OPERATION WITHOUT ERROR HALTSI 



/ 

SET SR BIT 0 * 0 


it 



/ FOR 

HIGH SPEED READER OPERATION! 


it 

SET SR BIT 10 * 1* OTHERWISE 


/ 



/ FOR 

HIGH SPEED PUNCH OPERATION! 


/ 

SET SR BIT 11 « 1* OTHERWISE 


/ 



♦ 20 


0000 

LDR* 

0 

1027 


TAD M30 

3030 


DCA CNT 

4031 


JMS TYPE 

2030 


ISZ CNT 

5023 


JMP .-2 

5420 


JMP I LDR 

7750 

M30* 

-30 

0000 

CNT* 

0 

0000 

TYPE* 

0 

6041 

Tl* 

TSF 

5032 


JMP .-1 

6046 

T2* 

TLS 

7300 


CL A CLL 

5431 


JMP I TYPE 

0000 

LISN* 

0 

6031 

Kl* 

KSF 

5050 


JMP WAIT 

3047 


DCA PTRF 

1056 


TAD MWAIT 

3057 


DCA PTRF1 

6036 

K2* 

KRB 

5437 


JMP I LISN 

0000 

PTRF* 

0 

2047 

WAIT* 

ISZ PTRF 

5040 


JMP Kl 

2057 


ISZ PTRF1 

5040 


JMP Kl 

5455 


JMP I SUPRC1 

0232 

SUPRC1 

* SUPRC 

7774 

MW AIT* 

-4 

0000 

PTRF1* 

0 

0000 

FILL* 

0 

0000 

ENDFL6* 0 

0000 

TEM* 

0 

6041 

CTSF* 

TSF 


0 


0 
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0064 

0065 

0066 

0067 

0070 

0071 

0072 


0200 7 300 

0201 3061 

0202 6046 

0203 6 014 

0204 7200 

0205 6026 

0206 7604 

0207 7110 

0210 7630 

0211 4315 

0212 4324 

0213 7 6 04 

0214 7112 

0215 7630 

0216 4332 

0217 4341 

0220 4020 

0221 4347 

0222 3411 

0223 2060 

0224 5222 

0225 4347 

0226 4037 

0227 3411 

0230 2060 

0231 5226 

0232 7 040 

0233 
0234 2060 

0235 7410 

0236 5221 

0237 1411 

0240 7450 

0241 5306 

0242 2061 

0243 7410 

0244 5242 

0245 3062 

0246 1062 

0247 1302 

0250 7650 

0251 5234 

0252 1304 

0253 3010 

6254 1410 

0255 7 4 50 

0256 5272 

0257 1062 

026 0 7 6 40 

0261 5254 


TLS 

KSF 

KRB 

RSF 

RRB RFC 

PSF 

PLS 


CLA 

CLL 

OCA 

ENDFL6 

TLS 


RFC 


CLA 


PLS 


LAS 


CLL 

RAR 

SZL 

CLA 

JMS 

HIP 

JMS 

LOP 

LAS 


CLL 

RTR 

SZL 

CLA 

JMS 

HIR 

JMS 

LOR 

JMS 

LDR 

JMS 

SETUP 

OCA 

I ll 

ISZ 

FILL 

JMP 

.-2 

JMS 

SETUP 

JMS 

LI SN 

OCA 

I 11 

ISZ 

FILL 

JMP 

SET 

CMA 


JMS 

SETUP 

ISZ 

FILL 

SKP 


JMP 

6ETCHR 

TAD 

I 11 

SNA 


JMP 

I6N0 

ISZ 

ENDFLG 

SKP 


JMP 

»~2 

DCA 

TEM 

TAD 

TEM 

TAD 

M212 

SNA 

CLA 

JMP 

PROC 

TAD 

RTAB1 

DCA 

10 

TAD 

I 10 

SNA 


JMP 

ERR 

TAD 

TEM 

SZA 

CLA 

JMP 

LOOK 


LOOK# 


6046 CTLS# 
6031 CKSF# 
6036 CKRB# 
6011 CRSF# 
6016 CURB# 
6021 CPSF# 
6026 CPLS# 

/ 

/ 

♦200 
BEGIN# 


6ETCHR# 


GET# 


4347 


SUPRC# 

PROC# 




0262 

1304 


TAD RTAB1 

0263 

7041 


CIA 

0264 

1010 


TAD 10 

0265 

1305 


TAD RTAB2 

0266 

3062 


DCA TEM 

0267 

1462 


TAD I TEM 

0270 

4031 


JMS TYPE 

0271 

5234 


JMP PROC 

0272 

7604 

ERR# 

LAS 

0273 

7104 


RAL CLL 

0274 

7620 


SNL CLA 

0275 

5234 


JMP PROC 

0276 

1062 


TAD TEM 

0277 

7402 


HLT 

0300 

7300 


CLA CLL 

0301 

5234 


JMP PROC 

0302 

7566 

M212# 

-212 

0303 

7401 

M377# 

-377 

0304 

0777 

RTAB1# 

TAB 1-1 

0305 

1051 

RTAB2# 

TAB2-1 

0306 

1061 

IGNO# 

TAD ENDFL6 

0307 

7650 


SNA CLA 

0310 

5234 


JMP PROC 

0311 

4020 


JMS LDR 

0312 

7040 


CMA 

0313 

7402 


HLT 

0314 

5200 


JMP BEGIN 

0315 

0000 

HIP# 

0 

0316 

2315 


ISZ HIP 

0317 

1071 


TAD CPSF 

0320 

3032 


DCA T1 

0321 

1072 


TAD CPLS 

0322 

3034 


DCA T2 

0323 

5715 


JMP I HIP 

0324 

0000 

LOP# 

0 

0325 

1063 


TAD CTSF 

0326 

3032 


DCA T1 

0327 

1064 


TAD CTLS 

0330 

3034 


DCA T2 

0331 

5724 


JMP I LOP 

0332 

0000 

HIR# 

0 

0333 

2332 


ISZ HIR 

0334 

1067 


TAD CRSF 

0335 

3040 


DCA K1 

0336 

1070 


TAD CRRB 

0337 

3045 


DCA K2 

0340 

5732 


JMP I HIR 

0341 

0000 

LOR# 

0 

0342 

1065 


TAD CKSF 

0343 

3040 


DCA K1 

0344 

1066 


TAD CKRB 

0345 

3045 


DCA K2 

0346 

5741 


JMP I LOR 

0347 

0000 

SETUP# 

0 

0350 

1303 


TAD M377 

0351 

3060 


DCA FILL 

0352 

1377 


TAD (1777 

0353 

3011 


DCA 11 

0354 

5747 


JMP I SETUP 


/ 




/ 


0377 

1777 

1000 

7563 

1001 

7477 

1002 

7476 

1003 

7475 

1004 

7474 

1005 

7473 

1006 

7472 

1007 

7471 

1010 

7470 

1011 

7467 

1012 

7466 

1013 

7465 

1014 

7464 

1015 

7463 

1016 

7462 

1017 

7461 

1020 

7460 

1021 

7457 

1022 

7456 

1023 

7455 

1024 

7454 

1025 

7453 

1026 

7452 

1027 

7451 

1030 

7450 

1031 

7447 

1032 

7446 

1033 

7540 

1034 

7520 

1035 

7517 

1036 

7516 

1037 

7515 

1040 

7514 

1041 

7513 

1042 

7512 

1043 

7511 

1044 

7510 

1045 

7507 

1046 

7522 

1047 

7521 

1050 

7523 

1051 

0000 

1052 

0200 

1053 

0141 

1054 

0142 

1055 

0163 

1056 

0144 

1057 

0165 

1060 

0166 

1061 

0147 

1062 

0150 

1063 

0171 

1064 

0121 

1065 

0122 

1066 

0103 

1067 

0124 

1070 

0105 


♦ 1000 

TAB I* -215 
-301 
-302 
-303 
-304 
-305 
-306 
-307 
-310 
-311 
-312 
-313 
-314 
-315 
-316 
-317 
-320 
-321 
-322 
-323 
-324 
-325 
-326 
-327 
-330 
-331 
-332 
-240 
-260 
-261 
-262 
-263 
-264 
-265 
-266 
-267 
-270 
-271 
-256 
-257 
-255 
0 

TAB2* 200 

141 

142 
163 
144 

165 

166 
147 
150 
171 
121 
122 
103 
124 
105 




107 1 0106 1 06 

1072 0127 127 

1073 0130 130 

1074 0111 111 

1075 0062 62 

1076 0043 43 

1077 0064 64 

1100 0045 45 

1101 0046 46 

1102 0067 67 

1103 0070 70 

1104 0051 51 

1105 0020 20 

1106 0040 40 

1107 0001 1 

1110 0002 2 

1111 0023 23 

1112 0004 4 

1113 0025 24 

1114 0026 26 

1115 0007 7 

1116 0010 10 

1117 0031 31 

1120 0153 153 

1121 0061 61 

1122 0100 100 

BEGIN 0200 
CKRB 0066 
CKSF 0065 
CNT 0030 
CPLS 0072 
CPSF 0071 
CRRB 0070 
CRSF . 0067 

CTLS 0064 
CTSF 0063 
ENDFLG 0061 
ERR 0272 
FILL 0060 
SET 0226 
SETCHR 0221 
HIP 0315 
HIR 0332 
IGNO 0306 
K1 0040 

K2 0045 

LDR 0020 
LI SN 0037 
LOOK 0254 
LOP 0324 
LOR 0341 
MWAIT 0056 
M212 0302 

M30 0027 

M377 0303 

PROC 0234 
PTRF 0047 
PTRF1 0057 
RTAB1 0304 







RTAB2 0305 
SETUP 0347 
SUPRC 0232 
SUPRC1 0055 
TAB1 1000 
TAB2 1052 
TEM 0062 
TYPE 0031 
T1 0032 
T2 0034 
WAIT 0050 




